home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / Amigacall v3.51 prof.adf / SCRIPT / XWahl < prev   
Text File  |  1989-12-16  |  1KB  |  61 lines
  1. #       Dieses Programm wird von der X-WAHL-Funktion auf-
  2. #       gerufen, um sich automatisch in eine Mailbox oder
  3. #       einen anderen Computer einloggen zu koennen. Durch
  4. #       diese Methode wird maximale Flexibiliaet gewaehr-
  5. #       leistet.
  6. #
  7. #       Einzelne Programmteile koennen jederzeit veraendert
  8. #       oder ausgetauscht werden, um das Programm dem je-
  9. #       weiligen Zweck anzupassen. In den meisten Faellen
  10. #       ist eine Veraenderung aber nicht mehr notwendig.
  11. #
  12. #
  13.  
  14. #       Die Uebergebene Nummer wird in einer Variable ge-
  15. #       speichert
  16. #
  17.         seta number,!lastline!
  18.  
  19. #       ein Zaehler wird auf 1 gesetzt
  20. #
  21.         setn count,1
  22.  
  23. #       HAUPTSCHLEIFE
  24. #
  25.  
  26. :loop
  27.  
  28. #       es wird maximal 40 sek auf CONNECT gewartet
  29. #
  30.         timeout 40
  31.         list    !count!. Versuch^m
  32.         dial    !number!
  33.         wait    CONNECT
  34.  
  35. #       der Text in WAIT wurde gefunden
  36. #
  37.         ifnbrk  list   Die Verbindung ist hergestellt!!
  38.         ifnbrk  beep   3
  39.         ifnbrk  goto   finish
  40.  
  41. #       kein CONNECT innerhalb der 40 sek, auflegen, 30 sek
  42. #       warten und es wieder versuchen, solange der Zaehler
  43. #       <= 10 ist
  44. #
  45.        
  46.  
  47.         inc    count
  48.         compn   !count! !with! 10
  49.         iflow   goto loop
  50.         ifequ   goto loop
  51.  
  52. #       no success after 10 attempts
  53.         print   Ganz schoen was los, heute?!!
  54.         beep
  55.  
  56. ##################
  57. #   THE END      #
  58. ##################
  59. :finish
  60.    exit
  61.